home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir39 / ctask11.zip / INSTALL_ < prev    next >
Text File  |  1994-10-23  |  11KB  |  473 lines
  1. ;$VER: CronTask Install 1.0 (Sep 25 1994) 
  2. ;Copyright ⌐ 1994 JoJoSoft Development. All rights reserved.
  3.  
  4. ;=============================================================================
  5. ; English strings
  6. ;=============================================================================
  7.  
  8. (if (= @language "english")
  9. (
  10.     (set #default_language 1)
  11.  
  12.     (set #install-msg
  13.         (cat "\n\nInstalling CronTask in your system.\n\n"
  14.              "CronTask ⌐ 1994 JoJoSoft Development.\n"
  15.              "All rights reserved." ))
  16.  
  17.     (set #AreYouSureUnInstall "\\n\\n\\n\\n\\n\\n\\n\\n\\n\\n\\n\\n\\nAre you sure you want to uninstall CronTask.")
  18.     (set #UnInstallFinished "\\n\\n\\n\\nCronTask uninstall is finished. CronTask has sadly \\nenough been removed from your system.")
  19.     (set #ChooseDir    "\nChoose destination directory\nfor ")
  20.     (set #GetUnPathText (cat #ChooseDir "the uninstallation script\n"))
  21.     (set #CopyCronTaskText (cat #ChooseDir "CronTask\n"))
  22.     (set #CopyCronPrefsText (cat #ChooseDir "CronPrefs\n"))
  23.     (set #CopyCronLibText "\nCopying 'cronserver.library' to LIBS:.\n")
  24.     (set #IconEnhPrompt "\n\n\n\n\n\n\n\nWhich icon set do you want to install?")
  25.     (set #IconEnhGadgets1 "Standard (4 colors)")
  26.     (set #IconEnhGadgets2 "Enhanced (8 colors)")
  27.     (set #DocPathPrompt (cat #ChooseDir "the documention\n"))
  28.     (set #RegFormPrompt "\n\n\n\n\n\n\n\nCronTask installation gives you the opportunity to print the registration form.")
  29.     (set #RegFormChoices1 "Do not print registerform")
  30.     (set #RegFormChoices2 "Print registerform")
  31.  
  32.     (set #wrong-kick (cat "This program is a heavy user of OS 2.x. Buy it, you wont regret it! For starters you could use the best Cron ever." ))
  33.  
  34.     (set #which-language (cat "\nWhich languages should be installed?" ))
  35.     (set #which-language-help
  36.         (cat "\nOne of the best features of Workbench 2.1 was\n"
  37.              "the abilty to work in different languages.\n"
  38.              "CronTask uses this feature. If your language\n"
  39.              "is avilable then select it and make the most\n"
  40.              "out of CronTask\n\n"
  41.               @askoptions-help ))
  42.  
  43.     (set #which-document (cat "\nWhich documentations should be installed?" ))
  44.     (set #which-document-help
  45.         (cat "HjΣlp!!!"
  46.                 @askoptions-help ))
  47.  
  48.     (set #Ending (cat "\n\nWe congratulate you to your fine choice of Cron. Make\n"
  49.                              "sure to read the manual carefully so you don't\n"
  50.                              "missout on any of the great features of CronTask.\n\n\n"
  51.                              "An unistall script has been created: "))
  52.  
  53. ))
  54.  
  55. ;=============================================================================
  56. ; Svenska strΣngar
  57. ;=============================================================================
  58.  
  59. (if (= @language "svenska")
  60. (
  61.     (set #default_language 2)
  62.  
  63.     (set #install-msg
  64.         (cat "\n\nInstallerar CronTask i ditt system.\n\n"
  65.              "CronTask ⌐ 1994 JoJoSoft Development.\n"
  66.              "Alla rΣttigheter reserverade."
  67.     ))
  68.  
  69.     (set #AreYouSureUnInstall "\\n\\n\\n\\n\\n\\n\\n\\n\\n\\n\\n\\n\\n─r du sΣker pσ att du vill avinstallera CronTask?")
  70.     (set #UnInstallFinished "\\n\\n\\n\\nCronTask avinstallation Σr klar. CronTask har\\nsorgligt nog blivit borttaget frσn ditt system.")
  71.     (set #ChooseDir    "\nVΣlj en katalog f÷r\n ")
  72.     (set #GetUnPathText (cat #ChooseDir "avinstallations scriptet\n"))
  73.     (set #CopyCronTaskText (cat #ChooseDir "CronTask\n"))
  74.     (set #CopyCronPrefsText (cat #ChooseDir "CronPrefs\n"))
  75.     (set #CopyCronLibText "\nKopierar 'cronserver.library' till LIBS:.\n")
  76.     (set #IconEnhPrompt "\n\n\n\n\n\n\n\nVilken ikon uppsΣttning vill du installera?")
  77.     (set #IconEnhGadgets1 "Standard (4 fΣrgers).")
  78.     (set #IconEnhGadgets2 "F÷rfinat (8 fΣrgers).")
  79.     (set #DocPathPrompt (cat #ChooseDir "dokumenten\n"))
  80.     (set #RegFormPrompt "\n\n\n\n\n\n\n\nCronTask installerare ger dig m÷jligheten att skriva ut registrerings formlΣret.")
  81.     (set #RegFormChoices1 "Skriv inte ut registrerings formulΣret.")
  82.     (set #RegFormChoices2 "Skriv ut registrerings formulΣret.")
  83.  
  84.     (set #wrong-kick (cat "Detta program Σr en tung anvΣndare av OS 2.x. K÷p det, du kommer inte σngra dig! Till att b÷rja med kan du dσ anvΣnda den bΣsta Cron nσgonsin." ))
  85.  
  86.     (set #which-language (cat "\nVilka sprσk ska bli installerade?" ))
  87.     (set #which-language-help
  88.         (cat "\nEn av dom bΣsta finesserna i Workbench 2.1 var\n"
  89.              "m÷jligheten att arbeta i olika sprσk.\n"
  90.                  "CronTask anvΣnder denna finess. Om ditt sprσk finns\n"
  91.                  "tillgΣngligt, vΣlj det och g÷r det mesta av CronTask.\n"
  92.               @askoptions-help ))
  93.  
  94.     (set #which-document (cat "\nVilka dokument ska bli installerade?" ))
  95.     (set #which-document-help
  96.         (cat "HjΣlp!!!"
  97.                 @askoptions-help ))
  98.  
  99.     (set #Ending (cat "\n\nVi gratulerar till ditt fina val av Cron. Se till\n"
  100.                              "att lΣsa manualen noggrant sσ du inte missar nσgra av\n"
  101.                              "CronTask's alla finesser.\n\n\n"
  102.                              "Ett avinstallations script har skapats: "))
  103. ))
  104.  
  105. ;--------------------------
  106. ; Script's real beginning.
  107. ;--------------------------
  108.  
  109. (if (< (/ (getversion) 65536) 37)
  110. (
  111.     (abort #wrong-kick)
  112. ))
  113.  
  114. (user 2)
  115. (welcome (message #install-msg))
  116.  
  117. (complete 0)
  118.  
  119. (set DefUn-Path
  120.     (askdir
  121.         (prompt #GetUnPathText)
  122.         (help @askdir-help)
  123.         (default "RAM:")
  124.     )
  125. ) 
  126.  
  127. (copyfiles
  128.     (newname "Un-Install CronTask.info")
  129.     (source "English.info")
  130.     (dest DefUn-Path)
  131. )
  132.  
  133. (tooltype
  134.     (dest (cat DefUn-Path "Un-Install CronTask"))
  135.     (settooltype "SCRIPT" "Un-Install CronTask")
  136.     (settooltype "MINUSER" "EXPERT")
  137.     (noposition)
  138. )
  139.  
  140. (working #install-msg)
  141.  
  142. (run (cat "echo >\"" DefUn-Path "Un-Install CronTask\""))
  143. (set Un-Path (cat "echo >>\"" DefUn-Path "Un-Install CronTask\""))
  144.  
  145. (run Un-Path "\";$VER: CronTask Un-Install 1.0 (Sep 25 1994)\"")
  146. (run Un-Path "\";Copyright ⌐ 1994 JoJoSoft Development. All rights reserved\"")
  147. (run Un-Path "\"(complete 0)\"")
  148. (run (cat Un-Path "\"(user 2)\""))
  149. (run (cat Un-Path "\"(welcome (message '" #AreYouSureUnInstall "'))\""))
  150. (run (cat Un-Path "\"(delete '" DefUn-Path "Un-Install CronTask')\""))
  151. (run (cat Un-Path "\"(delete '" DefUn-Path "Un-Install CronTask.info')\""))
  152. (run (cat Un-Path "\"(run 'delete ENV:Cron all')\""))
  153. (run (cat Un-Path "\"(run 'delete ENVARC:Cron all')\""))
  154. (run Un-Path "\"(complete 10)\"")
  155.  
  156. ;--------------------------------------------------
  157. ; Copying CronTask, Cronprefs & cronserver.library.
  158. ;--------------------------------------------------
  159.  
  160. (set CronTask-Path
  161.     (askdir
  162.         (prompt #CopyCronTaskText)
  163.         (help @askdir-help)
  164.         (default "SYS:WBStartup/")
  165.     )
  166. )
  167.  
  168. (copyfiles
  169.     (source "/CronTask")
  170.     (dest CronTask-Path)
  171.     (infos)
  172. )
  173.  
  174. (complete 8)
  175.  
  176. (working #install-msg)
  177.  
  178. (run (cat Un-Path "\"(run '" CronTask-Path "CronTask q')\""))
  179. (run Un-Path "\"(complete 20)\"")
  180. (run (cat Un-Path "\"(delete '" CronTask-Path "CronTask.info')\""))
  181. (run (cat Un-Path "\"(delete '" CronTask-Path "CronTask')\""))
  182. (run Un-Path "\"(complete 30)\"")
  183.  
  184. (complete 16)
  185.  
  186. (set CronPrefs-Path
  187.     (askdir
  188.         (prompt #CopyCronPrefsText)
  189.         (help @askdir-help)
  190.         (default "SYS:Prefs/")
  191.     )
  192. ) 
  193.  
  194. (copyfiles
  195.     (source "/CronPrefs")
  196.     (dest CronPrefs-Path)
  197.     (infos)
  198. )
  199.  
  200. (complete 24)
  201.  
  202. (working #install-msg)
  203.  
  204. (run (cat Un-Path "\"(delete '" CronPrefs-Path "CronPrefs')\""))
  205. (run Un-Path "\"(complete 40)\"")
  206. (run (cat Un-Path "\"(delete '" CronPrefs-Path "CronPrefs.info')\""))
  207. (run Un-Path "\"(complete 50)\"")
  208.  
  209. (complete 32)
  210.  
  211. (copylib
  212.     (prompt #CopyCronLibText)
  213.     (help @copylib-help)
  214.     (source "/Libs/cronserver.library")
  215.     (dest "LIBS:")
  216.     (confirm)
  217. )
  218.  
  219. (working #install-msg)
  220.  
  221. (run (cat Un-Path "\"(delete 'Libs:cronserver.library')\""))
  222. (run Un-Path "\"(complete 60)\"")
  223.  
  224. (complete 40)
  225.  
  226. ;-----------------
  227. ; Copying icon's.
  228. ;-----------------
  229.  
  230. (set #Enhanced
  231.     (askchoice
  232.         (prompt #IconEnhPrompt)
  233.         (default 0)
  234.         (choices #IconEnhGadgets1 #IconEnhGadgets2)
  235.         (help "HjΣlp!!!")
  236.     )
  237. )
  238.  
  239. (complete 56)
  240.  
  241. (if #Enhanced
  242. (
  243.     (copyfiles
  244.         (source "/Icons/CronTask.info")
  245.         (dest CronTask-Path)
  246.     )
  247.  
  248.     (copyfiles
  249.         (source "/Icons/CronPrefs.info")
  250.         (dest CronPrefs-Path)
  251.     )
  252. ))
  253.  
  254. (complete 64)
  255.  
  256. (tooltype
  257.     (dest (cat CronTask-Path "CronTask"))
  258.     (settooltype "DONOTWAIT" "")
  259.     (noposition)
  260. )
  261.  
  262. (tooltype
  263.     (dest (cat CronPrefs-Path "CronPrefs"))
  264.     (noposition)
  265. )
  266.  
  267. (complete 69)
  268.  
  269. ;-----------------------
  270. ; Copying documentation.
  271. ;-----------------------
  272.  
  273. (set documentation
  274.     (askoptions
  275.         (prompt #which-document)
  276.         (help #which-document-help)
  277.         (choices
  278.             "English"
  279.             "Svenska")
  280.             (default #default_language)
  281.         )
  282. )
  283.  
  284. (complete 72)
  285.  
  286. (set count 0)
  287. (set #askdocpath 1)
  288.  
  289. (while (set doc (select count
  290.                                 "english"
  291.                                 "svenska"
  292.                                 ""))
  293. (
  294.     (if (IN documentation count)
  295.     (
  296.         (if #askdocpath
  297.         (
  298.             (set #askdocpath 0)
  299.             
  300.             (set Doc-Path
  301.                 (askdir
  302.                     (prompt #DocPathPrompt)
  303.                     (help @askdir-help)
  304.                     (default CronPrefs-Path)
  305.                 )
  306.             ) 
  307.         ))
  308.  
  309.         (if (= count 0)
  310.         (
  311.             (copyfiles
  312.                 (source "/Docs/CronTask.guide.eng")
  313.                 (dest Doc-Path)
  314.                 (infos)
  315.             )
  316.  
  317.             (copyfiles
  318.                 (source "/Docs/Register_form.eng")
  319.                 (dest Doc-Path)
  320.             )
  321.  
  322.             (if #Enhanced
  323.             (
  324.                 (copyfiles
  325.                     (newname "CronTask.guide.eng.info")
  326.                     (source "/Icons/Doc.info")
  327.                     (dest Doc-Path)
  328.                 )
  329.             ))
  330.  
  331.             (tooltype
  332.                 (dest (cat Doc-Path "CronTask.guide.eng"))
  333.                 (noposition)
  334.             )
  335.  
  336.             (working #install-msg)
  337.  
  338.             (run (cat Un-Path "\"(delete '" Doc-Path "CronTask.guide.eng')\""))
  339.             (run (cat Un-Path "\"(delete '" Doc-Path "CronTask.guide.eng.info')\""))
  340.             (run (cat Un-Path "\"(delete '" Doc-Path "Register_form.eng')\""))
  341.         ))
  342.  
  343.         (if (= count 1)
  344.         (
  345.             (copyfiles
  346.                 (source "/Docs/CronTask.guide.sve")
  347.                 (dest Doc-Path)
  348.                 (infos)
  349.             )
  350.  
  351.             (copyfiles
  352.                 (source "/Docs/Register_form.sve")
  353.                 (dest Doc-Path)
  354.             )
  355.  
  356.             (if #Enhanced
  357.             (
  358.                 (copyfiles
  359.                     (newname "CronTask.guide.sve.info")
  360.                     (source "/Icons/Doc.info")
  361.                     (dest Doc-Path)
  362.                 )
  363.             ))
  364.  
  365.             (tooltype
  366.                 (dest (cat Doc-Path "CronTask.guide.sve"))
  367.                 (noposition)
  368.             )
  369.  
  370.             (working #install-msg)
  371.  
  372.             (run (cat Un-Path "\"(delete '" Doc-Path "CronTask.guide.sve')\""))
  373.             (run (cat Un-Path "\"(delete '" Doc-Path "CronTask.guide.sve.info')\""))
  374.             (run (cat Un-Path "\"(delete '" Doc-Path "Register_form.sve')\""))
  375.         ))
  376.     ))
  377.  
  378.     (set count (+ count 1))
  379. ))
  380.  
  381. (working #install-msg)
  382.  
  383. (run Un-Path "\"(complete 90)\"")
  384.  
  385. (complete 80)
  386.  
  387. ;-----------------------
  388. ; Copying locale.
  389. ;-----------------------
  390.  
  391. (if (exists "Sys:Locale" (noreq))
  392. (
  393.     (if (exists "LOCALE:" (noreq))
  394.     (
  395.         (set language
  396.             (askoptions
  397.                 (prompt #which-language)
  398.                 (help #which-language-help)
  399.                 (choices
  400.                     "English"
  401.                     "Svenska")
  402.                     (default #default_language)
  403.                 )
  404.         )
  405.  
  406.         (set count 0)
  407.         (while (set lang (select count
  408.                                         "english"
  409.                                         "svenska"
  410.                                         ""))
  411.         (
  412.             (if (IN language count)
  413.             (
  414.                 (if (<> count 0)
  415.                 (
  416.                     (makedir (cat "LOCALE:Catalogs/" lang))
  417.  
  418.                     (copyfiles
  419.                         (source (cat "/Catalogs/" lang))
  420.                         (dest (cat "LOCALE:Catalogs/" lang))
  421.                         (all)
  422.                     )
  423.  
  424.                     (run (cat Un-Path "\"(delete 'Locale:Catalogs/" lang "/cronprefs.catalog')\""))
  425.  
  426.                 ))
  427.             ))
  428.  
  429.             (set count (+ count 1))
  430.         ))
  431.     ))
  432. ))
  433.  
  434. (complete 88)
  435.  
  436. ;----------------------
  437. ; Typing registerform.
  438. ;----------------------
  439.  
  440. (set #Regform
  441.     (askchoice
  442.         (prompt #RegFormPrompt)
  443.         (default 0)
  444.         (choices #RegFormChoices1 #RegFormChoices2)
  445.         (help "HjΣlp!!!")
  446. ))
  447.  
  448. (complete 96)
  449.  
  450. (if #Regform
  451. (
  452.     (if (= @language "english")
  453.     (
  454.         (run "type >prt: /Docs/Register_form.eng")
  455.     ))
  456.  
  457.     (if (= @language "svenska")
  458.     (
  459.         (run "type >prt: /Docs/Register_form.eng")
  460.     ))
  461. ))
  462.  
  463. (user 3)
  464.  
  465. (run Un-Path "\"(complete 100)\"")
  466. (run Un-Path "\"(message '" #UnInstallFinished "')\"")
  467. (run Un-Path "\"(exit (quiet))\"")
  468.  
  469. (complete 100)
  470.  
  471. (message (cat #Ending (substr Un-Path 7)))
  472.  
  473. (exit (quiet))